Namespace OpenArchive
    Namespace Document
        Namespace Components.Data
            Public Class ColdContent
                Private m_ColdView As Guid
                Private m_Pages() As String
                Public Sub New()

                End Sub
                Public Sub New(ByVal Pages As String(), ByVal ColdView As Guid)
                    m_Pages = Pages
                    m_ColdView = ColdView
                End Sub
                Public Property ColdView() As Guid
                    Get
                        Return m_ColdView
                    End Get
                    Set(ByVal value As Guid)
                        m_ColdView = value
                    End Set
                End Property
                Public Property Pages() As String()
                    Get
                        Return m_Pages
                    End Get
                    Set(ByVal value() As String)
                        m_Pages = value
                    End Set
                End Property
                Public ReadOnly Property Count() As Integer
                    Get
                        Return m_Pages.Length
                    End Get
                End Property
            End Class
        End Namespace
    End Namespace
End Namespace
